/* Ewarp Colonists */
/* Made by Dell Bond */
/* Version 1.0 */

stuff=ZocAsk("1 - Fuel Ore, 2 - Organics, 3 - Equipment")
call zocsend "d"
call zocwait "Planet #2"
planet=GetNum(0,0)
call zocsend "cs"
call zocwait "Sector  : "
sector=GetNum(0,0)
call zocsend "q"


do forever
call zocsend "snl"
call zocsend stuff
call zocsend "^mq"
call zocsend "1^me"
call zocwait "Sector  : 1 in"
call zocsend "l1^m^m^m"
call zocsend sector

if sector>5000 then do
call zocsend "^me"
end

if sector<600 then do
call zocsend "e"
end

call zocsend "l"
call zocsend planet
call zocsend "^m"

end

exit

GetNum:
holdfinal=""
call zocwait " "
holds=zoclastline()
DO addchar=1 to length(holds)
        holdsit=substr(holds,addchar,1)
        if holdsit<>"]" then DO
          if holdsit<>"," then holdfinal=holdfinal||holdsit
        end
END
RETURN holdfinal